home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Text / OzTeX 1.9 / TeX-inputs / Tools / enumerate.sty < prev    next >
Encoding:
Text File  |  1995-01-24  |  2.5 KB  |  68 lines  |  [TEXT/MPS ]
  1. %% 
  2. %% This is file `enumerate.sty', generated 
  3. %% on <1995/1/24> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% enumerate.dtx  (with options: `package')
  8. %% 
  9. %% IMPORTANT NOTICE: 
  10. %% This file is part of the `tools' bundle 
  11. %% in the LaTeX2e distribution. 
  12. %% 
  13. %% You are not allowed to distribute this file. 
  14. %% For distribution of the original source see 
  15. %% the copyright notice in the source file, and 
  16. %% in the file readme.txt distributed with the 
  17. %% tools bundle. 
  18. %% 
  19. %% File: enumerat.dtx Copyright (C) 1993-1994 David Carlisle
  20. \NeedsTeXFormat{LaTeX2e}
  21. \ProvidesPackage{enumerate}
  22.          [1994/01/31 v2.02 enumerate extensions (DPC)]
  23. \newtoks\@enLab
  24. \def\@enQmark{?}
  25. \def\@enLabel#1#2{%
  26.   \edef\@enThe{\noexpand#1{\@enumctr}}%
  27.   \@enLab\expandafter{\the\@enLab\csname the\@enumctr\endcsname}%
  28.   \@enloop}
  29. \def\@enSpace{\afterassignment\@enSp@ce\let\@tempa= }
  30. \def\@enSp@ce{\@enLab\expandafter{\the\@enLab\space}\@enloop}
  31. \def\@enGroup#1{\@enLab\expandafter{\the\@enLab{#1}}\@enloop}
  32. \def\@enOther#1{\@enLab\expandafter{\the\@enLab#1}\@enloop}
  33. \def\@enloop{\futurelet\@entemp\@enloop@}
  34. \def\@enloop@{%
  35.   \ifx A\@entemp         \def\@tempa{\@enLabel\Alph  }\else
  36.   \ifx a\@entemp         \def\@tempa{\@enLabel\alph  }\else
  37.   \ifx i\@entemp         \def\@tempa{\@enLabel\roman }\else
  38.   \ifx I\@entemp         \def\@tempa{\@enLabel\Roman }\else
  39.   \ifx 1\@entemp         \def\@tempa{\@enLabel\arabic}\else
  40.   \ifx \@sptoken\@entemp \let\@tempa\@enSpace         \else
  41.   \ifx \bgroup\@entemp   \let\@tempa\@enGroup         \else
  42.   \ifx \@enum@\@entemp   \let\@tempa\@gobble          \else
  43.                          \let\@tempa\@enOther
  44.              \fi\fi\fi\fi\fi\fi\fi\fi
  45.   \@tempa}
  46. \def\enumerate{%
  47.   \ifnum \@enumdepth >3 \@toodeep\else
  48.       \advance\@enumdepth \@ne
  49.       \edef\@enumctr{enum\romannumeral\the\@enumdepth}\fi
  50.   \@ifnextchar[{\@@enum@}{\@enum@}}
  51. \def\@@enum@[#1]{%
  52.   \@enLab{}\let\@enThe\@enQmark
  53.   \@enloop#1\@enum@
  54.   \ifx\@enThe\@enQmark\@warning{The counter will not be printed.%
  55.    ^^J\space\@spaces\@spaces\@spaces The label is: \the\@enLab}\fi
  56.   \expandafter\edef\csname label\@enumctr\endcsname{\the\@enLab}%
  57.   \expandafter\let\csname the\@enumctr\endcsname\@enThe
  58.   \csname c@\@enumctr\endcsname7
  59.   \expandafter\settowidth
  60.             \csname leftmargin\romannumeral\@enumdepth\endcsname
  61.             {\the\@enLab\hspace{\labelsep}}%
  62.   \@enum@}
  63. \def\@enum@{\list{\csname label\@enumctr\endcsname}%
  64.            {\usecounter{\@enumctr}\def\makelabel##1{\hss\llap{##1}}}}
  65. \endinput
  66. %% 
  67. %% End of file `enumerate.sty'.
  68.